home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XenEudSplash.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-01-10  |  1.9 KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Eudora"
  5. "NAME"="Eudora Splash Screen"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Disable Splash"
  8. "TEXT 2"="Enable Splash"
  9. "DESCRIPTION 1"="This will remove the splash screen shown while Eudora Email is starting."
  10. "DESCRIPTION 2"=" "
  11. "VERSION"="2.00"
  12. "AUTHOR"="J. Scott Elblein / Patched by Xteq Systems"
  13. "COPYRIGHT"="All Rights Reserved. 2001"
  14. "CONTACTURL"="http://www.xenon-inc.com/"
  15. "COMMENT 1"="... Used with permission"
  16.  
  17. 'Hey XTeq dudes ... how about adding a Bookmarks drop-down list so you can go directly to favorite keys? ;)
  18.  
  19. sPath1="HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Eudora.exe"
  20. s=""
  21.  
  22. sPath2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData"
  23.  
  24.  
  25. 'Called when the Plugin is started
  26. SUB Plugin_Initialize
  27.  'first check if this is maybe a "new" eduora instllation
  28.  s=RegReadValue(sPath2)
  29.  s=s & "\Qualcomm\Eudora\Eudora.ini"
  30.  
  31.  if FileExists(s) then 
  32.     'okay, found ini!
  33.  else
  34.     if regpathexists(sPAth1) then
  35.        s = RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Eudora.exe\Path")
  36.        s = s & "\Eudora.ini"
  37.  
  38.        if IniReadValue(s,"Settings","NoSplashScreen")="1" then
  39.           call SetUIElement(1,true)
  40.        end if
  41.     else
  42.        Call Disable()
  43.     end if
  44.  end if
  45.  
  46. END SUB
  47.  
  48. 'Called when the Plugin should validate the Data the user has entered
  49. SUB Plugin_CheckData(ElementIndex)
  50. END SUB
  51.  
  52. 'Called when the Plugin should apply the changes
  53. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  54.  b = getuielement(1) 
  55.  if b = true then
  56.     call iniwritevalue(s,"Settings","NoSplashScreen","1")
  57.     'MsgInformation("Eudora Splash Screen Disabled")
  58.  else
  59.     call iniwritevalue(s,"Settings","NoSplashScreen","0")
  60.     'MsgInformation("Eudora Splash Screen Enabled")
  61.  end if
  62.  
  63. END SUB
  64.  
  65. 'Called when the Plugin is about to be removed from memory
  66. SUB Plugin_Terminate
  67. END SUB
  68.